object PlannerForm: TPlannerForm Left = 22 Top = 98 BorderStyle = bsDialog Caption = 'Monthly Planner' ClientHeight = 209 ClientWidth = 601 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] OnClose = FormClose OnCreate = FormCreate PixelsPerInch = 96 TextHeight = 13 object Image1: TImage Left = 176 Top = 152 Width = 11 Height = 11 Picture.Data = {} Transparent = True Visible = False end object MonthTab: TTabControl Left = 3 Top = 21 Width = 595 Height = 171 HotTrack = True TabIndex = 0 TabOrder = 0 Tabs.Strings = ( 'January' 'February' 'March' 'April' 'May' 'June' 'July' 'August' 'September' 'October' 'November' 'December') OnChange = MonthTabChange object Panel1: TPanel Left = 4 Top = 24 Width = 588 Height = 144 BorderStyle = bsSingle Color = clTeal Ctl3D = False ParentCtl3D = False TabOrder = 0 object PlannerBox: TPaintBox Left = 2 Top = 2 Width = 583 Height = 138 Color = clBtnText ParentColor = False OnMouseDown = PlannerBoxMouseDown OnPaint = PlannerBoxPaint end object BitBtn1: TBitBtn Left = 529 Top = 118 Width = 54 Height = 23 TabOrder = 0 OnClick = BitBtn1Click Kind = bkHelp end object BitBtn2: TBitBtn Left = 473 Top = 118 Width = 54 Height = 23 TabOrder = 1 Kind = bkClose end end end object YearTab: TTabSet Left = 3 Top = 190 Width = 595 Height = 21 DitherBackground = False Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Tabs.Strings = ( '1900' '1901' '1902' '1903' '1904') TabIndex = 0 OnChange = YearTabChange end object Status: TStatusBar Left = 0 Top = 0 Width = 601 Height = 19 Align = alTop Panels = < item Alignment = taCenter Bevel = pbRaised Text = 'November, 1997' Width = 120 end item Text = 'Diary' Width = 65 end item Text = 'Journals' Width = 75 end item Text = 'Schedules' Width = 85 end item Text = 'Ann`saries' Width = 85 end item Text = 'To Do' Width = 65 end item Text = 'Reminders' Width = 75 end> SimplePanel = False SizeGrip = False end end